home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ftp_srv2 / vbsock.bas < prev    next >
BASIC Source File  |  1996-07-03  |  5KB  |  105 lines
  1. Global Const AF_UNSPEC = 0             '  /* unspecified */
  2. Global Const AF_UNIX = 1               '  /* local to host (pipes, portals) */
  3. Global Const AF_INET = 2               '  /* internetwork: UDP, TCP, etc. */
  4. Global Const AF_IMPLINK = 3            '  /* arpanet imp addresses */
  5. Global Const AF_PUP = 4                '  /* pup protocols: e.g. BSP */
  6. Global Const AF_CHAOS = 5              '  /* mit CHAOS protocols */
  7. Global Const AF_IPX = 6                '  /* IPX and SPX */
  8. Global Const AF_NS = 6                 '  /* XEROX NS protocols */
  9. Global Const AF_ISO = 7                '  /* ISO protocols */
  10. Global Const AF_OSI = AF_ISO           '  /* OSI is ISO */
  11. Global Const AF_ECMA = 8               '  /* european computer manufacturers */
  12. Global Const AF_DATAKIT = 9            '  /* datakit protocols */
  13. Global Const AF_CCITT = 10             '  /* CCITT protocols, X.25 etc */
  14. Global Const AF_SNA = 11               '  /* IBM SNA */
  15. Global Const AF_DECnet = 12            '  /* DECnet */
  16. Global Const AF_DLI = 13               '  /* Direct data link interface */
  17. Global Const AF_LAT = 14               '  /* LAT */
  18. Global Const AF_HYLINK = 15            '  /* NSC Hyperchannel */
  19. Global Const AF_APPLETALK = 16         '  /* AppleTalk */
  20. Global Const AF_NETBIOS = 17           '  /* NetBios-style addresses */
  21.  
  22. Global Const FD_READ = &H1
  23. Global Const FD_WRITE = &H2
  24. Global Const FD_OOB = &H4
  25. Global Const FD_ACCEPT = &H8
  26. Global Const FD_CONNECT = &H10
  27. Global Const FD_CLOSE = &H20
  28.  
  29. Global Const INVALID_SOCKET = -1
  30. Global Const SOCKET_ERROR = -1
  31.  
  32. Declare Function SendSocket Lib "vbsock.vbx" (ByVal s As Integer, ByVal buf As String, ByVal llen As Integer, ByVal flags As Integer) As Integer
  33. Declare Function WSACleanup Lib "winsock" () As Integer
  34.  
  35. Declare Function CleanSocket Lib "vbsock.vbx" () As Integer
  36. Declare Function OpenSocket Lib "vbsock.vbx" (ByVal PSin_Family As Integer, ByVal PPort As Integer) As Integer
  37. Declare Function InitSocket Lib "vbsock.vbx" () As Integer
  38. Declare Function CloseTheSocket Lib "vbsock.vbx" (ByVal PSocket As Integer) As Integer
  39. Declare Function ConnectSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal PPort As Integer, ByVal PHost As Long) As Integer
  40. Declare Function OpenSocketWithServer Lib "vbsock.vbx" (ByVal PServerName As String, ByVal PPort As Integer) As Integer
  41. Declare Function SelectSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal PWnd As Integer, ByVal PWindowMessage As Integer, ByVal PEvent As Long) As Integer
  42. Declare Function listenSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal BackLog As Integer) As Integer
  43. Declare Function GetSelectEventSocket Lib "vbsock.vbx" (ByVal PParam As Long) As Integer
  44. Declare Function RecvSocket Lib "vbsock.vbx" (ByVal PSocket As Integer, ByVal PBuf As String, ByVal PLen As Integer, ByVal PFlags As Integer) As Integer
  45. Declare Function acceptSocket Lib "vbsock.vbx" (ByVal PSocket As Integer) As Integer
  46.  
  47. Global Const WSASYSNOTREADY = 10091
  48. Global Const WSAVERNOTSUPPORTED = 10092
  49. Global Const WSAEINVAL = 10022
  50. Global Const WSAEWOULDBLOCK = 10035
  51.  
  52. Global Const BAD_SOCKET = -1
  53. Global Const UNRESOLVED_HOST = -2
  54. Global Const UNABLE_TO_BIND = -3
  55. Global Const UNABLE_TO_CONNECT = -4
  56.  
  57.  
  58. Global Const WIN_SOCKET_MSG = 2000
  59.  
  60. '--- additional declarations
  61. 'Types
  62. Global Const SOCK_STREAM = 1
  63. Global Const SOCK_DGRAM = 2
  64. Global Const SOCK_RAW = 3
  65. Global Const SOCK_RDM = 4
  66. Global Const SOCK_SEQPACKET = 5
  67.  
  68. 'Protocol families, same as address families for now
  69. Global Const PF_UNSPEC = 0
  70. Global Const PF_UNIX = 1
  71. Global Const PF_INET = 2
  72. Global Const PF_IMPLINK = 3
  73. Global Const PF_PUP = 4
  74. Global Const PF_CHAOS = 5
  75. Global Const PF_IPX = 6
  76. Global Const PF_NS = 6
  77. Global Const PF_ISO = 7
  78. Global Const PF_OSI = AF_ISO
  79. Global Const PF_ECMA = 8
  80. Global Const PF_DATAKIT = 9
  81. Global Const PF_CCITT = 10
  82. Global Const PF_SNA = 11
  83. Global Const PF_DECnet = 12
  84. Global Const PF_DLI = 13
  85. Global Const PF_LAT = 14
  86. Global Const PF_HYLINK = 15
  87. Global Const PF_APPLETALK = 16
  88. Global Const PF_NETBIOS = 17
  89.  
  90. 'socket address
  91. Type sockaddr
  92.   sa_family As Integer
  93.   port As Integer
  94.   IP_address(4) As String * 1
  95.   sa_data(8) As String * 1
  96. End Type
  97.  
  98. Declare Function WSAGetLastError Lib "winsock" () As Integer
  99. Declare Function htonl Lib "winsock" (ByVal hostlong As Long) As Long
  100. Declare Function htons Lib "winsock" (ByVal hostshort As Integer) As Integer
  101. Declare Function socket Lib "winsock" (ByVal af As Integer, ByVal type_ As Integer, ByVal protocol As Integer) As Integer
  102. Declare Function connect Lib "winsock" (ByVal PSocket As Integer, PName As sockaddr, ByVal PNameLenght As Integer) As Integer
  103. Declare Function accept Lib "winsock" (ByVal PSocket As Integer, PName As sockaddr, PNameLenght As Integer)
  104.  
  105.